Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue25/clinic/STATICU2.PAS

Pascal/Delphi Source File | 1997-06-03 | 773 b | 47 lines

unit StaticU2;

interface

type
  TStatic = class(TObject)
  public
    AnObjectField: Integer;
    class function GetAClassField: Integer;
    class procedure SetAClassField(Value: Integer);

    procedure AnObjectMethod;
    class procedure AClassMethod;
  end;

  TStaticClass = class of TStatic;

implementation

uses
  Dialogs;

const
  StaticField: Integer = 0;

class function TStatic.GetAClassField: Integer;
begin
  Result := StaticField
end;

class procedure TStatic.SetAClassField(Value: Integer);
begin
  StaticField := Value
end;

class procedure TStatic.AClassMethod;
begin
  ShowMessage('This is a class method')
end;

procedure TStatic.AnObjectMethod;
begin
  ShowMessage('This is an object method')
end;

end.